home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
fd200.zip
/
FD_CONST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-27
|
2KB
|
48 lines
const
version = '2.00';
{ 0 black 8 gray
1 blue 9 light blue
2 green 10 light green
3 cyan 11 light cyan
4 red 12 light red
5 magenta 13 light magenta
6 brown 14 yellow
7 white 15 bright white }
brite_b : integer = 7;
brite_f : integer = 0;
norm_b : integer = 0;
norm_f : integer = 7;
null = ^@;
numbers : set of char = ['0'..'9'];
nbr_days : array[1..12] of integer
= (31,28,31,30,31,30,31,31,30,31,30,31);
scrn_width = 80;
scrn_height = 24;
print_height = 23;
default = 'FIELDDAY.LOG';
sections : array[0..14,0..4] of string[15] =
(('Alabama', 'llinois','Mrtime Nfld','Pacific','Tennessee'),
('Alaska', 'Indiana','N. Carolina','Quebec','Utah'),
('Alberta', 'Iowa','N. Florida','Rhode Island','Vermont'),
('Arizona', 'Kansas','N. New Jersey','S. Carolina','Virginia'),
('Arkansas', 'Kentucky','N. Texas','S. Florida','W. Mass.'),
('B. Columbia', 'Los Angeles ','Nebraska','S. New Jersey','W. New York'),
('Colorado', 'Louisiana','Nevada','S. Texas','W. Penn.'),
('Connecticut', 'Maine','New Hampsh.','Sacr. Valley','W. Virginia'),
('Delaware', 'Manitoba','New Mexico','San Diego','Washington'),
('E. Mass.', 'Maryland D-C','North Dakota','San Fran.','West Indies'),
('E. New York', 'Michigan','NYC Long Isl.','San Joaquin','Wisconsin'),
('E. Penn.', 'Minnesota','Ohio','Santa Barb.','Wyoming'),
('East Bay', 'Mississippi','Oklahoma','Santa Clara','OTHER'),
('Georgia', 'Missouri','Ontario','Saskatchewan','OTHER'),
('Idaho', 'Montana','Orange','South Dakota','OTHER'));